F 10 


ond ath a 
whhall ad 
4a 
pe ee 
adi ad add 
ab add asl 
aul ac eal 
add) aad) cal 
ahahal 
ahah add 
wail cach call 
adh il aad 
cl all coil cal call ea cal cel ch ah el call eal ce ch) ed) ca cael cael eed eh 
call cal) wal) cal) cach) eal cai cad aa edt el cal el ad et ad a ch ec cael 
hull dabubehebad abel dabababbabubabababad 
<q<q4a€4a4aedea ede 
222222222222 222252 
«aa <<aa 
<<a <<aa 
333 333 
<q<aa =< 
<<a $3 
<<aa < 
222 <= 
$222222222222S22222 
qeaiddaddeddedetededdaeaaae 
ee 
oe 
mere 
ood 
— 
or 


oe 
an a ee et roo 
Cl eee ce Ne oe Oe ee ee ee 


ee 

toe 

od 

od 

be 

oo 

Nw YNNMNMNM 

NM YNNMNMYM 

Ynw NMNNNNM 

YuNwn Ann Ynwn 

YNw Yn NNW 

NNW Nn nw 

NNWM nnn Own 

NNW nnn nnn 

nwn Onn nw 

NM Ln nun 

nnn nnn NNW 

NNN rvTY TY.) nnn 
NNMMNNY nnn 
NMNAMNYNYM nnn 
NMNMNNYM own 


be ee ee ie ee hee ee hee ee ee ee eee ee hee hee hee hee ae ee oe hee) 
SS ek ad Od dd dd kd Od Od Od Ot Od Oe Od nd 
et tt eee ee ee ee ee ee hee ee eee ee ee ee ee) 
“te — ee 
“es — ee 
ot oe “te 


*eF 1LE®e] De® INSKFSCAN 


22222222222 222 
22222222222 222 
2Zz 
22a 
22 
22a 
22 
2z 
22222222222 222 
22222222222 222 
<q<q<aq¢aqea eee 
<q<aq@dqdetdedcctaacca 
aac <<a 
Psd << 
aa <«< 
«aa << 
<< << 
<<a 33 
<q<qaaacc <<<< 
qeadacataedctaaeaacace 
eres vu 
wu vw 
ww ww 
ww vww 
ww Yvw 
ae Vw 
VCwv ww 
payer ww 
VUYYVUYVUYUUYU 
VOIVOVVYVYULUYU 
nw NNNwM 
ow NNNWN 
nn nn pote 4 
nn nn pn ae 
nn nn aw 
nn nn ——- 
nn nn AW 
nn nn NW 
NNW hdd 
NNNM mn 
as 
be 
me ka 
io eh 
ms Ate be 
mi he 
mo he 
mo he 


Ae he he 
revere rer ey er er eer et en ee ee 


be a ae wtetete; 
dé be ot dé de oe oe 
a ae aed 
a a 
ae ae 
a x 
a 
a4 
Dé Bo Bo Bo Be Oe Oe Oe 
iwRVE VES VSVS SSS 2 "S22" 
nw MWWMw 
nw MMMM 
nn nn AM 
nn nw AM 
nw nn ann 
nn nn ann 
nn nn nn 
mn mn nn 


Ot Od Od Od ad nd Ong Od OF Od 9 nd at 
pa te 
oe oe 


nW MWwMnm 
nw MMMM 
nw nw wn 
nw nw nn 
MNMM nn 
NNMNM an 
onbens oe! 
joamen eo ee 


8 ed Od ng Od Od Ph Od ed Oe Oo Oy 
Et ee et ed ne ne a ge On ee 
“oo —e 


LLLLLLLLLL 
LLLLLLLLLL 


N 6 
INSKF SCAN 16-Sep AX-11 Bliss-32 V4.0-74 P 1! 
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! 


MODULE INSKFSCAN ( DENT ' Locate KFE entry 


*v04- 
ADD DRESSING LMODE (EXTERNAL = GENERAL) 


oo 


)s 
BEGIN 


' 
Lee R REE AERA AAA ARERR AAAA TATRA EAHA AA RANA 


it COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
' DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


2 
® 
® 
® 
: ® 
'® THIS SOFTWARE IS FURNISHED meee A LICENSE AND MAY BE USED AND gh tt * 
'® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH Tint SE AND WITH THE * 
'® INCLUSION OF a & “ye? E Sgt NOTICE. THIS SOFTWARE OR ANY OTHER * 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
't TRANSFERRED. ® 
: * 
t® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
'* CORPORATION. 5 

* 

® 

® 

* 

® 

® 


it DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
i eee eedeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeneeeeeeeekeneeeneeeeneeeeeeeeet 


lee 


FACILITY: Install 
i ABSTRACT: 


This module contains the routine to look up a file in the known 
file List. 


' 

‘ 

' 

' 

' 

; ENVIRONMENT: 
VAX/VMS operating system, executive mode. 

i AUTHOR: Bob Grosso, April 1983 

i Modified by: 

: V03-007 RASO286 Ron Schaefer ah 

; Change normal failure status from 0 to RSS. NF - * that 
RMS searchlist processing will continue searching. 

: V03-006 MSHO022 Michael S. Harvey 21-Mar-1984 

: Correctly massage directory specification to eliminate 
: middle brackets when root directories are used. This 

: ensures that directories as stored in the KFDs are 
correctly matched. 

' 


v03-005 BLS0256 Benn Schreiber 3-Jan-1984 
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8 7 
16-Sep-1984 01:58:15  VAX=11 BLiss-32 v4.0-74 
1e-Sep-1984 12:35:37 


v04-000 

: 8 0059 } } Convert square brackets to angle brackets. 

: 60 060 1: V03-004 RPG0004 Bob Grosso 19-Sep-1983 
: $ pe) : Remove temporary external. 

: 8 $68 1 i v03-003 RPG0003 Bob Grosso 15-Sep-1983 
; rt bee : } Replace the hash algorithm. 

: 666 0066 1! v03-002 RPGO002 Bob Grosso July 29, 1983 
; OF 0067 1! d some robustness to ny cheesy hash algorithm. 

; 8 006 : Stuff file id into NAM block for a FID open. 

: $ $096 1 / v03-001 RPGO001 Bob Grosso july 7, 1983 
Pa: oe 0071 1! Return special known file found status if file is 

3 7 BRr¢ 1! installed open. 

>. £ 0075 1! 

3 74 0074 1 !=- 

. 0075 «(1 

§ 76 0076 1! 

a aa 0077 1! Include files 

3 78 th 1! 

; 79 79 «1 

; , ! LIBRARY ‘SYSSLIBRARY:LIB'; ! VAX/VMS system definitions 
: 8 0082 1 REQUIRE 'SRC$:INSPREFIX.REQ'; 

3 8 02246 1 REQUIRE ‘LIBS: INSDEF.R32'; 


INSTAL.SRCJINSKF SCAN.B32; 1 


<ee 
oOo 


INSKF SCAN 

v04-000 Declarations 

Ss ie 8 Hi } XSBTTL ‘Declarations’; 
5 §$ 8 85 1 ! PSECT DECLARATIONS: 
; 8 1! 

3 4 87 1 

3 3 1 PSECT 

;s Wi 9 1 

; 3g 0290 1 

; 8 91 #1! 

5s 35 1 ! Table of contents 

; 0293 1! 

4 38 8 94 1 FORWARD ROUTINE 

yan. 95 (1 INSSHASH; 

; 0 38 1 

; 299 8 97 «(1 

: 100 98 1 EXTERNAL 

3; 101 0299 1 CTLSGL_KNOWNFIL, 

3 106 0300 1 EXESGL_KNOWN_FILES 
; 10 0301 1 

: 104 ta4 1 LITERAL SGN_B_KFHSHSIZ 
: 105 0303 1 


CODE = YFSSSYSIMGACT (WRITE); 


: REF BBLOCK; 


= 128; 


.-F 
16-Sep-1984 01:58:15 VAX-11 Bliss-32 V4.0-742 Page 3 
14-Sep-1984 12:35:37 CINSTAL.SRCJINSKFSCAN.B32;1 (2) 


!' Process known file Listhead queues 
! Pointer to knownfil List queues 


. 7 | 
INsKFs AN 1o=$e0-1 388 01:38:43 et) Bliss-32 V4.0-74 Page 4) 


INSSKF_SCAN Locate the KFE INSTAL. SRCJINSKFSCAN.B32; 1 (3) | 
197 4 ! ZSBTTL ‘INSSKF_SCAN Locate the KFE'; 
1 GLOBAL ROUTINE INSSKF_SCAN ( KF_NAM, RET_KFE ) = | 
BEGIN 
1ee4 
' 

i FUNCTIONAL DESCRIPTION: | 

EXPLICIT INPUT: 
IMPLICIT INPUT: | 
IMPLICIT OUTPUT: | 

ROUTINE VALUE: 
| 


P 
KF_NAM : REF BBLOCK; 


LOCAL 
DDTSTR : SBBLOCKCNAMSC_MAXRSS], 
iar 


WN — SO OCONAUESWN —“OVDONOULSWN 00M 


R 
CMPKFE : REF BBLOCK, 
PRVKFE : REF BBLOCK. 


HSHIDX, 
HSHTAB : REF a C,LONGJ, 


§ KFD : REF BBLOC 
BIND 
KFE = .RET_KFE, 
KFPB = EXESGL_KNOWN_FILES : REF BBLOCK; 
KFE = 0; ' Assume not found 
IF .KFPB EQi 0 
THEN 
BEGIN 
: There is no Known file List 


RETURN RMSS$_FNF; 
END; 


SOOWSNOA UES WIN $9 OD NAMES WIN (OC ODNOAUE WN (" OOONOULS WN 


HSHTAB = .KFPB CKFPBSL_KFEHSHTAB); 
HSHIDX = INSSHASH (.KF_NAM CNAMSB_NAME], .KF_NAM CNAMSL_NAME], SGN_B_KFHSHSIZ); 


Search the hash bucket Linked List for KFE 
PRVKFE = HSHTAB C.HSHIDX); ' Previous KFE 
CMPKFE = .HSHTAB L.HSHIDXI; ___ t Comparison KFE 

WHILE .CMPKFE NEQ 0 DO ! Single Linked List ending in zero | 


N 
CASE CHSCOMPARE (.KF_NAM CNAMSB_NAME], .KF_NAM CNAMSL_NAME], 


DONO UES WN (OC CONOUS WN Oo 0®@ 
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| 
BEEN" smesr_ston Lace the or IAHR HEN INSTORE 


7 Treat square brackets Like angle brackets 


PTR = CHSFIND_CH(.DDTLEN,DDTSTR,'C'):; 
1F NOT CHSFAIC(.PTR) 


61 .CMPKFE CKFESB_ FILNAMLEN CMPKFE CKFEST_FILNAM], %C' ‘) : 
6 FROM =1 10 1 OF ! Either less than, @qual to, or greater than | : 
64 | : 
5 {-1]: ! Less than, therefore its not in the List ; 

66 RETURN RMSS_FNF; | : 
(0] : ! Found it ; 

3 BEGIN : 

71 i Build a counted ASCII string of the concatenated Device, Directory ; 
: Type strings. ‘ 

DDTLEN = .KF -NAR CNAMSB DEV] + .KF_NAM CNAMSB_DIR] + ; 

NAM CNAMSB_TYPE); ~ ! Length of DDT string : 

DDTSTR_PTR = EHSMOVE (KF at) NAMSB_DEV > «KF_NAM CNAMSL_DEV]. DDTSTR); ; 

DDTSTR_PTR = CHSMOVE 3°ar “NAM CNAM$B_DIR -KF-NAM CNAMSL_DIRJ, .DDTSTR_PTR); : 

DDTSTRIPTR = CHSMOVE (.KF_INAM CNAMSB “TYPES, .KF_NAM CNAMSC_TYPE], .DDTSTR_PTR); : 


| 
| 
| 
| 
| 
| 
| 

BEGIN | 

CHSWCHAR('<* 

= CHSFIND. CnC. sborven-c. PTR=-DDTSTR),.PTR,'CL"); 
" ROT CHSFAIC(.P 


HEN 
5 CHSWCHAR('<',.PTR); 


PTR = CHSFIND_CH(.DDTLEN,DDTSTR,'J"); 
fen CHSFAIC(.PTR) 


SSSLEAEAN LSE SSLEARATELS SSNS AP INI SD OUuR ae 


BEGIN 
CHSWCHAR('>*, 


PRINS a a a nn at at ts SS a SY a as ot ot st SS 
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fore teat eal eal al al at oF ot oP ot ot or ot eh a a a ah eh ee ee oe eh a al al al al al et oP oe oF oP oP oF oF ot at ot a? ot et et tw | 


01 PTR = CHSFIND. CHC.  SDTLENS(. PTR=-DDTSTR),.PTR,'J'); 

4 99 IF NOT CHSFAIC(.PTR) 

0 040 THEN 

04 0401 CHSWCHAR('>',.PTR); 

05 040 END; 

06 040 

a 404 ! : 
8 05 ' Collapse middle directory brackets from root directory 
09 0406 ! 

10 0407 

11 408 CHSF IND_CH C-BDTLEN. DDTSTR,">"); 

\¢ 409 1 RNOT CHSFAIC(.PTR) 

1 410 THEN 

14 Be13 BEGIN 

15 tig PTR2 = CHSFIND_CH( .DDTLEN-(.PTR#1-DDTSTR),.PTR+1,'<"); 
16 041 IF NOT CHSFAILT.PTR2) 

1 0414 THEN 
18 Rel? BEGIN 

19 416 CHSMOVE( .DDTLEN=(. i hy el a teed | 
20 0417 DDTLEN = .DDTLEN=(. PTR2-.PTR+1); 
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Voe= 000 INSSKF_SCAN Locate the KFE 17-8¢8- 38 9b:38:49 INSTAL. SRC INSKESCAN.B82;1 9° 3) v¢ 
: 1 418 5 END; 
3 ‘ 4 4 END; 
; 420 4 | 
3 204 bel 4 
: 5 4 be ! Traverse the KFD List to find a KFD block with a matching DDT ste ine- 
3 $ 425 & ; If no match is found, record eddress of block after which a new KFD 
; 3 ri ¢ 2 block containing the new DDT string should be inserted. 
: 9 426 & KFD = . CMPKFE EKPESL KFD); 
: 230 be? IF CHSCOMPARE  ( DDTLEN, bts STR 
> 231 0428 4 -KFD CKFDSB_DDTSTRLENJ, KFD CKFDST_DDTSTR], %C' *) EQL 0 
3 ¢ 8 9 4 THEN 
; 450 BEGIN 
H 4 431 KFE = .CMPKFE; 
: 235 4 : IF .CMPKFE CKFESV_OPEN) 
; 0434 2 RETURN RMSS_KFF 
; 435 LSE 
; 239 3 6 BEGIN 
: 40 6 CHSMOVE (4, est CKFESW_FIDJ, KF_NAM CNAM$W_FIDJ); 
; 241 0438 6 KF NAM tna MSW_FID_RVN] = [CMPKFE CRFESW_FID_RONJ; 
: seg 0439 8 RETURN RUES | 
: 246 0440 END 
3 44 0441 5 END 
> 245 0442 & ELSE 
i: 266 04435 4 ! Same file name, different file so keep Looking 
$ ste 0444 5 EGIN 
; 48 0445 5 PRVKFE = .CMPKFE; | 
3; 249 0446 § CMPKFE = .CMPKFE CKFESL_HSHLNK); | 
; 50 0447 & END; 
; 251 0448 END; | 
3 26 0449 
; 2 0450 C12 : ! Greater than, keep Looking 
: 54 0451 4 BEGIN 
Z 55 Beeg 4 PRVKFE = .CMPKFE; 
: 256 0453 4 CMPKFE = .CMPKFE CKFESL_HSHLNK); 
: 257 0454 § END; 
: 258 0455 TES; 
s @s9 0456 2 END; ! WHILE traversing hash bucket List 
: 260 0457 
: 261 0458 ! 
; 6¢ 0459 Have traversed whole List without finding it. 
; 0460 
; 64 461 RETURN RMSS_FNF; 
: 265 +36 
: 66 465 1 END; ! Routine INSSKF_SCAN 
TITLE INSKFSCAN 
-IDENT \v04-000\ 
eEXTRN CTLSGL_KNOWNF IL 
-EXTRN EXESGL-KNOWN_FILES 


-PSECT YFSSSYSIMGACT,2 
OFFC 00000 -ENTRY INSSKF_SCAN, Save R2,R3,R4,R5,R6,R7,RB,R9,~ ; 0306 | 


SRESINSKF SCAN. B82;1 


AX-11 Bliss-32 V4.0-74 
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7 
VOe-000," —==INSSKF_SCAN Locate the KFE 1erSep-1986 12:95:57 — EINSTALSSRESINGKFSCAW.B82;1 


0 08 AE 9 CA MOV DDTSTR, RO 
C ¢ SUBL2 PTR, 
6 D ADDL2 DDTLEN, RO 
69 5D «BFE SOSA 00004 Locé «=._-«#93,_RO, (PTR) 
: 2 00009 BNEQ 69S 
D4 00008 CLRL sR 
59 1D DD 9$: MOVL 1, PTR 
21% OE BEQL 10 
9 E 3 E MOVE #62, (PTR) 
08 AE & A OE 10$: LOCC #62, DDTLEN, DDTSTR 
12 OOOEA BNEQ = ‘171 
D4 QOEC CLRL sR 
59 1 09 cE 11$:  MOVL 1, PTR 
D 1 6 Fi BEQL «=s«13$ 
50 08 ar H F3 MOV DDTSTR, RO 
50 5 § 000F SUBL2 PTR RO 
50 FF A046 : OOOFA MOVAB <-1(RO)CDDTLEN], RO 
51 39 p OOFF MOVL PTR, R1 
01 «Al 50 ¢ 3A 0010¢ Loce #60, RO, 1(R1) 
3 D4 20109 CLRL sR 
58 1 09 0108 12$:  MOVL 1, PTR2 
20 1 00106 BEQL 138 
50 08 AE 9 oor MOV DDTSTR, RO 
50 5B C2 00114 SUBL2 PTR2, RO 
50 FF A046 SE 00117 MOVAB -1(RO)CDDTLENJ, RO 
51 5B OD ooric MOVL. PTR2 
69 01 «A 50 28 O011F MOVC3 RO, 1(R1), (PTR) 
51 58 59 C3 00124 SUBL3. PTR, PTR2. 
50 56 51 €3 00128 SUBL3. 1, DDTLEN, RO 
56 FF AO i 01 C MOVAB -1(RO), DDTLEN 
5A OC AS 00 00130 138:  MOVL  12(CMPKFE), KFD 
50 10 AA 9A 001 MOVZBL 16(KFD), RO 
54 1 00 00138 MOVL #1, R4 
50 20 08 AE ‘i 36 20 00138 CMPCS DDTLEN, DDTSTR, #32, RO, 17(KFD) 
03 1A 00143 BGTRU 14$ 
54 1 09 00145 SBWC C1, RG 
4 D5 00148 1468: TSTL R64 
iF 1 O14, BNEQ  16$ 
08 BC 58 DO 0014¢ MOVL  CMPKFE, @RET_KFE 
08 10 As 0 E1 9130 BBC 83 I6CCHPKFED, 15$ 
50 00018031 &F Bo 15 ROVL #98353, RO 
34 A? 18 A8 DO 0015D 158:  -MOVL 4(CMPKFE), 36(R7) 
8 a? 1C as 80 16 mov 2B (CHPKFE) , 40(R7) 
4 0016A RET 
6 8 pe 16B 16$: MOVL CMPKFE, PRVKFE 
5 6 p 166 MOVL (CMPKFE), CMPKFE 
FEB 1 001 BRW 
50 00018292 8F bd 0174 17$:  MOVL #98962, RO 
4 00178 RET 
; Routine Size: 380 bytes, Routine Base: YFSSSYSIMGACT + 0000 
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1b-se -1984 01:58: AX-11 Bliss-32 V4. 
INSSHASH Compute Hash table index 127808-1 382 93:38:48 INSTAL. SRCJINSKF 
1 ZSBTTL ‘INSSHASH Compute Hash table index'; 


35 ROUTINE INSSHASH (LEN, ADR, SIZE) = 
‘eee 
FUNCTIONAL DESCRIPTION: 
Return a hash table index computed from the File name 
EXPLICIT INPUT: 


' 

' 

' 

! 

' 

; 

; LEN Length of file name 
} ADR Address of name string 
' 

' 

' 


IMPLICIT INPUT: 
Assume hash table is 128 longwords 


SUM’: BYTE, 
FIRST_CHAR : BYTE; 


SUM = 0; 
IF .LEN EQL O THEN RETURN .SUM; 


PTR = .ADR; 
INCR_ INDEX FROM 1 TO .LEN DO 
BEGIN 


SUM = .SUM + ..PTR; 
PTR = .PTR + 1; 
END; 

SUM = .SUM AND 127; 


RETURN .SUM; 
ND; ' Routine INSSHASH 


0004 00000 -ENTRY INSSHASH, Save R2 
o tees 8 6fe 
is 13 0007 BEQL $ 
51 08 af BY 94 t's ot i 
Hime ak 
26 1 e 011 1$: ADDB2) = (PTR)+, SUM 
£3 5 04 ac fF 14 2$: AOBLEQ LEN, weg th 1$ 
5 of F 19 EXTZV #0, #7, SUM, RO 
3 0 if MOVB . 
5 Nn § 3$: MOVZBL SUM, RO 
04 00024 T 


Sete Se Se Se Se Se Se Se Ge Se Ge Se 


SF 
INSKF SCAN 16-Sep-1984 OF: 3813 goth ot 8 Fo V4.0-74 Page 11 
v04 INSSHASH Compute Hash table index 14-Sep-1984 12:35:37 INSTAL .SRCJINSKFSCAN.632;1 (4) 


; Routine Size: 37 bytes, Routine Base: YFSS$SYSIMGACT + 017C¢ 


; 308 0504 1 


] 
| 

? 

INSKF SCAN 18-Se -1984 01:58: AX-11 Bliss-32 V4.0-74 Page 12 

v04-000 INSSHASH Compute Hash table index 1e-Sep=1984 13:38:37 INSTAL.SRCJINSKFSCAN.B52; 1 : (5) | 

3 319 0306 1 END ! Module INSKF SCAN | 

3 51 06 0 ELUDOM | 

3 PSECT SUMMARY 

3 Name Bytes Attributes 

:  YFSSSYSIMGACT 417 NOVEC, WRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

; Library Statistics 

‘a er eh es ea ere a Symbols -------- Pages Processing 

: File Total Loaded Percent Mapped Time 

: _$255$DUA28:CSYSLIBILIB.L32;1 18619 31 0 1000 00:01.8 

é COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$: INSKFSCAN/OBJ=OBJ$: INSKFSCAN MSRC3$: INSKF SCAN/UPDATE=(ENH$: INSKF SCAN) 


; Size: 417 code + 0 data bytes 
3; Run Time: 311. 
3; Elapsed Time: ODegr =? 
: Lines/CPU Min: 7 

3; Lexemes/CPU-Min: 15183 

: ry Used: 163 pages 
; Compilation Complete 


ENT CORPORATION 
AND PROPRIETARY | 
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